home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / cboot.d64 / set_read time.l < prev    next >
Text File  |  2009-01-23  |  2KB  |  59 lines
  1. 9000 ╨╥╧├ SETTIME(HRS,MNT,SEC) ├╠╧╙┼─
  2. 9010   CIA1:=56320; CCRB:=56335
  3. 9020   ╨╧╦┼ CCRB,╨┼┼╦(CCRB) ═╧─ 128
  4. 9030   X:=0
  5. 9040   ╔╞ HRS>12 ╘╚┼╬ X:=128; HRS:-12
  6. 9050   ╔╞ HRS=0 ╘╚┼╬ HRS:=12
  7. 9060   X:+(HRS ─╔╓ 10)*16+(HRS ═╧─ 10)
  8. 9070   ╨╧╦┼ CIA1+11,X
  9. 9080   ╨╧╦┼ CIA1+10,(MNT ─╔╓ 10)*16+(MNT ═╧─ 10)
  10. 9090   ╨╧╦┼ CIA1+9,(SEC ─╔╓ 10)*16+(SEC ═╧─ 10)
  11. 9100   ╨╧╦┼ CIA1+8,0
  12. 9110 ┼╬─╨╥╧├ SETTIME
  13. 9120 //
  14. 9130 ╞╒╬├ READTIME ├╠╧╙┼─
  15. 9140   CIA1:=56320; X:=0
  16. 9150   X:=╨┼┼╦(CIA1+11)
  17. 9160   AM'PM:=X ─╔╓ 128; X:=X ═╧─ 128
  18. 9170   X:=(X ─╔╓ 16)*10+(X ═╧─ 16)
  19. 9180   ╔╞ X=12 ╘╚┼╬ X:=0
  20. 9190   X:+12*AM'PM
  21. 9200   X:=X*100
  22. 9210   X:=X+((╨┼┼╦(CIA1+10) ─╔╓ 16)*10)+(╨┼┼╦(CIA1+10) ═╧─ 16)
  23. 9220   X:=X+((╨┼┼╦(CIA1+9) ─╔╓ 16)/10)+((╨┼┼╦(CIA1+9) ═╧─ 16)/100)
  24. 9230   X:=X+(╨┼┼╦(CIA1+8)/1000)
  25. 9240   ╥┼╘╒╥╬ X
  26. 9250 ┼╬─╞╒╬├ READTIME
  27. 9260 //
  28. 9270 //SETTIME USES MILITARY TIME TO
  29. 9280 //SET THE CLOCK. EXAMPLES FOLLOW:
  30. 9290 // 12:01:10 AM = 0,1,10
  31. 9300 // NOON        = 12,0,0
  32. 9310 // MIDNIGHT    = 0,0,0
  33. 9320 // 4:15:30 PM  = 16,15,30  (ADD 12
  34. 9330 // 9:25:00 PM  = 21,25,0   FOR PM)
  35. 9340 // 3:15:20 AM  = 3,15,20
  36. 9350 //READTIME RETURNS TIME AS A REAL
  37. 9360 //NUMBER.  2:15:25PM AND 4THS IS
  38. 9370 //RETURNED AS  1415.254
  39. 9380 //TIME IS 24 HOUR MILITARY TIME
  40. 9390 //
  41. 9400 //
  42. 9410 //THIS VERSION IS FOR MORE NUMBER
  43. 9420 //ORIENTED NEEDS
  44. 9430 //
  45. 9440 //
  46. 9450 //THIS PROGRAM USES THE COMPLEX
  47. 9460 //INTERFACE ADAPTER#1 INSTEAD OF
  48. 9470 //THE INTERRUPT SYSTEM GENERATED
  49. 9480 //CLOCK.  THIS HAS THE ADVANTAGE
  50. 9490 //OF CONTINUING THROUGH DISK AND
  51. 9500 //TAPE ACCESS WITHOUT SLOWING.
  52. 9510 //
  53. 9520 //
  54. 9530 //NOTE: READTIME DIV 100 = HOURS
  55. 9540 //      READTIME MOD 100 = MINUTES
  56. 9550 //      REMAINING FRACTION IS
  57. 9560 //       SECONDS AND TENTHS OF
  58. 9570 //       SECONDS.
  59.